home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 09 Application Software / GC1.SDA / NAME COUNTER (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  546b  |  24 lines
  1. 10 REM NAME COUNTER
  2. 20 REM WRITTEN BY KURT BRANDON
  3. 30 REM THERE ISN'T MUCH TO SAY ON
  4. 40 REM THIS ONE   :)
  5. 50 :
  6. 60 :
  7. 70 :
  8. 80 DN=PEEK(186):REM DRIVE ADDRESS
  9. 90 CC=1:PRINT"[147]NAME COUNT BY
  10. 100 [153]"FIRST LETTER":[153]:[153]
  11. 110 [159]15,DN,15
  12. 120 [129]I[178]65[164]90:[159]8,DN,8,[199](I)
  13. 130 RN[178]1:[141]180:[141]190:[132]8,MN:TC[178]TC[170]MN[171]1
  14. 140 [139]CC[178]1[167]CC[178]2:[153][199](I)"="MN[171]1;:[137]160
  15. 150 [139]CC[178]2[167]CC[178]1:[153][163]10)[199](I)"="MN[171]1
  16. 160 [160]8:[130]
  17. 170 [153]:[153]"NUMBER OF ENTRIES:"TC
  18. 175 [151]198,0:[146]198,1:[147]"MENU",DN
  19. 180 RH[178][181](RN[173]256):RL[178]RN[171](256[172]RH)
  20. 190 [152]15,"P"[170][199](96[170]8)[170][199](RL)[170][199](RH)[170][199](1)
  21. 200 [132]15,E,E$,AA,B
  22. 210 [139] E[178]0[176]E[178]50[167][142]
  23. 220 [153]E;E$;AA;B:[160]8:[160]15:[128]
  24.